home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SExamples / CopyFile.sim next >
Encoding:
Text File  |  1989-05-02  |  2.8 KB  |  97 lines  |  [TEXT/MPS ]
  1. % -----------------------------------------------------------------------
  2. %    CopyFile
  3. %  This program demonstrate how to use Simula interface to the 
  4. % Standard File Package.
  5. % The program asks for a file to copy, the name of the new file and
  6. % then actually copies the file. The file i/o is done using Simula 
  7. % defined I/O.
  8. % 
  9. % The program excersices the rouitines SFGetFile and SFPutFile
  10. % from class macPackintf. It also usees the class macSFReply that
  11. % holds the result from calling these two procedures respectively.
  12. % 
  13. %
  14. %    Compile the program with the command 
  15. %
  16. %        simcomp CopyFile
  17. %
  18. %    and link it with the following command:
  19. %
  20. %        simld CopyFile -toolbox -APPL
  21. % This sequence can be generated by entering "make copyfile"
  22. %
  23. % -----------------------------------------------------------------------
  24. begin
  25.  
  26.     external class MacPoint="::SInterfaces:MacPoint";
  27.     external class MacSFReply="::SInterfaces:MacSFReply";
  28.     external class MacPackIntf="::SInterfaces:MacPackIntf";
  29.  
  30.     ref(MacPackIntf) myMacPackIntf; ! Needs one of these ;    
  31.     ref(MacSFReply) myMacSFReply;   ! Will hold the result from ; 
  32.                                               ! calls to PackInf ;
  33.     ref(MacPoint) LeftUpperCorner;  ! Placement of dialog box ;
  34.     
  35.     ref(outfile) myOutFile; ! simula files - used to copy ;
  36.     ref(infile) myInFile;
  37.     text array TypeList(0:0);    ! A TypeList has to be a one dimensional
  38.                                         ! text array with lowerindex = 0 and
  39.                                         ! upperindex <= 3. Every element
  40.                                         ! has to be a four character text.;
  41.         
  42.     LeftUpperCorner:-new MacPoint;    ! LeftUpperCorner of Dialog Window;
  43.     LeftUpperCorner.h:=20;
  44.     LeftUpperCorner.v:=20;
  45.  
  46.     myMacPackIntf:- new MacPackIntf;
  47.     TypeList(0):-copy("TEXT");    
  48.     myMacSFReply:-new MacSFReply;    
  49.     myMacPackIntf.SFGetFile(LeftUpperCorner,notext,
  50.         0,1,TypeList,0,myMacSFReply);
  51.     inspect myMacSFReply do
  52.     begin
  53.         if Good then
  54.         begin
  55.             myInFile:-new infile(fname);
  56.             if not myInFile.open(blanks(132)) then
  57.                 Error("The infile could not be opened");
  58.         end
  59.         else
  60.             Error("No infile");
  61.     end;
  62.  
  63.     myMacPackIntf.SFPutFile(LeftUpperCorner,"Save document as", 
  64.         notext, 0, myMacSFReply);        
  65.     inspect myMacSFReply do
  66.     begin
  67.         if Good then
  68.         begin
  69.             myOutfile:-new outfile(fname);
  70.             if not myOutfile.open(blanks(132)) then
  71.                 Error("The outfile could not be opened");
  72.         end
  73.         else
  74.             Error("No outfile");
  75.     end;
  76.     
  77.     begin
  78.         boolean longimage; ! result of inrecord: true
  79.                            ! if image was filled but
  80.                                  ! no line-terminater was found.;
  81.     ! -- use same image - no internal copying needed!--;
  82.         myOutfile.image:-myInFile.image;
  83.     
  84.         longimage:=myInfile.inrecord;
  85.         while not myInFile.endfile do
  86.         begin
  87.             myOutfile.setpos(myInfile.pos);
  88.             if longimage then
  89.                 myOutfile.outrecord
  90.             else 
  91.                 myOutfile.outimage;
  92.             longimage:=myInfile.inrecord;
  93.         end;
  94.     end - inner block --;
  95.     myInFile.close;
  96.     myOutFile.close;
  97. end;